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MODULE BASSDELETE ( 
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LETE.832 Edit: JBS1004 


BEGIN 


APES SSSILCS ICES STEEP ETT ETT TTT TTT Teeter eee circ rece irri rir rica ii iiiiiit 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


s 
* 
x 
& 
' % 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF sven Tints AND WITH THE * 
' % 
3 0 te 
's OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
' ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
's CORPORATION. * 

® 

* 

x 

& 

% 

* 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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2 i eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeneeeeneneekeneneneeeeeeeee 
2 ! 
$0] tes 
3 ' FACILITY: 
; } Basic support library - user callable 
3 ; ABSTRACT: 
36 1! This module is the UPI Level of the Basic DELETE construct. Initially, 
0037 : it contains only the code for sequential 1/0. This module will set 
$3 Bn85 } up the 1/0 data base for the LUN and go directly to the REC level. 
40 0040 1: 
41 0041 ' ENVIRONMENT: 
4g Bne } User access mode - AST reentrant. 
44 0044 AUTHOR: Donald G. Petersen, CREATION DATE: 27-Feb-79 
46 0046 1 | MODIFIED BY: 
47 0047 ' 
48 0048 : DGP, 27-Feb-79 : 5 at Sa 01 
49 0049 ! 1-001 = original. DGP 27-Feb-79 
50 050 1 i 1-00¢ - Set up ISBSA_USER_FP. IBS 25-JuL-1979 
51 051 ! 1-005 - Check for virtual ortey use of this file. DGP 16-Oct-79 
26 0028 1-004 - Give error ILLEGAL OPERATION if file is read only. JBS 27-DEC-1979 
54 0034 ; 
55 055 ' <BLF /PAGE> 
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H 0056 1! 

: 8 0057 1 ! SWITCHES: 

; 0058 1! 

; 0059 1 

: $3 BRey : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
F es B26 1! 

a 00635 1 ! LINKAGES 

s §3 0064 1! 

3; © 0065 1 

a ae 0066 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 

; «668 0495 1 

; & 0496 1! 

; 70 0497 1 ! TABLE OF CONTENTS: 

ft 0498 1! 

; £2 0499 1 

; 73 0500 1 FORWARD ROUTINE 

5 0501 1 BASSDELETE : NOVALUE; ! UPI level Sequential DELETE 
. 0502 1 

; © 0503 1! 

; 77 0504 1 ! INCLUDE FILES: 

; we 0505 1! 

; 0506 1 , 

; a9 44 ; REQUIRE ‘RTLML:OTSISB'; ! ISB definitions 

: 8¢ sth ; REQUIRE ‘RTLML:OTSLUB'; ! LUB definitions 

; Be 4 : REQUIRE ‘RTLIN:RTILPSECT'; ! Define DECLARE_PSECTS macro 
>; «686 9918 1 LIBRARY ‘RTLSTARLE'; ! Starlet system macros 
a or 0914 1 

>; 6288 0915 1! 

; 0916 1 ! MACROS: 

: 90 0917 1! 

; 0918 1! NONE 

; 0919 1! 

s; 93 0920 1 ! EQUATED SYMBOLS: 

ee 0921 1! 

; ah 54 1! NONE 

; * 0925 1! 

s Ww oases 1! 

; 0925 1 ! PSECT DECLARATIONS: 

; 0926 1! 

; 100 base 1 DECLARE_PSECTS (BAS); 

3; 101 928 1! 

; 106 3h9 1 ! OWN STORAGE: 

; 0930 1! 

3: 104 0931 1! NONE 

; 105 B36 }! 

: 106 933 1 ! EXTERNAL REFERENCES: 

: 107 ah 1! 

: 108 935 1 

: 109 338 1 EXTERNAL ROUTINE 

: 110 937 1 BASSS$STOP_IO : NOVALUE ! Signal fatal BASIC 1/0 error 
: 14 0938 1 BASSSREC_DSE : JSB_RECO NOVALUE, i REC Level processing - RMS interface 
; iN 0939 1 ! DELETE sequentia 
B-@ 0940 1 BASS$CB_PUSH : JSB_CB_PUSH NOVALUE, ! Load register CCB 
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; 118 RS) } BASSSCB_POP : JSB_CB_POP NOVALUE; ! Done with register CCB 
; 116 0945 1 !¢ 
s Viz 0944 1! The following are the error codes used in this module. 
> 118 0945 1 !- 

3: 6119 0946 1 

; le 0947 1 EXTERNAL LITERAL 

> 121 0948 1 BASSK_ILLOPE : UNSIGNED (8), ! Illegal operation 

: 122 0949 1 BASSK “ILLILLACC : UNSIGNED (8), ! Illegal or illogical access 
$ is? 344 : BAS$K_10_CHANOT : UNSIGNED (8); ! 1/0 channel not open 
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e.7 $ 936 1 GLOBAL ROUTINE BASSDELETE ( ’ DELETE sequential 

5° 4 9 1 UNIT ! logical unit number 

; 128 954 1 ) : NOVALUE = 

; 129 0955 1 

; 1350 0956 1 !4+ 

: ! 1 Beet ' } FUNCTIONAL DESCRIPTION: 

‘7 g 0959 1! This routine will set up the I/0 data base for this LUN if necessary 
; Y 0960 1! and then go directly to the REC level. When control is returned to 
s 39 0961 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
; 136 0366 ! face to RMS is done at the REC level. The current record is deleted. 
; 13 0964 1 ! FORMAL PARAMETERS: 

; i> 0965 1! 

> 140 0966 1! UNIT. rlu.v Logical unit number 

3: «141 0967 1! 

; 196 0968 1! IMPLICIT INPUTS: 

3; (14 0969 1! : 4 

3 144 0970 1! LUBS$V_VA_USE virtual array use of this file 

: 13 ade ! } LUBSV_READ_ONLY file is read only 

: 147 0973 1°! IMPLICIT OUTPUTS: 

: 148 0974 1! 

; (149 0975 1! ISB$B_STTM_TYPE the statement type PAT. 

; 1a9 344 ’ } LUBS$V_BLK_OSE non-virtual array use of this file 

s 132 0978 1 ! COMPLETION CODES: 

s 33 0979 1! 

> «154 0980 1! NONE 

: woe 0981 1! 

s 136 0982 1 ! SIDE EFFECTS: 

; 37 0983 1! 

5; 133 0984 1! NONE 

: #159 0985 1! 

; 160 0986 1 !-- 

3; «6161 0987 1 

: 162 0988 2 BEGIN 

: 163 0989 2 

> 164 0990 § BUILTIN 

: 165 0991 FP; 

: 166 5484 2 

3: 167 0993 2 GLOBAL REGISTER 

3: «4168 0994 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3 168 0995 

: 170 0996 LOCAL 

3; 6171 0997 2 FMP : REF BLOCK C, BYTE); 

: 172 0998 

3; «173 0999 FMP = FP; 

3 (174 1000 '¢ os 

; 175 1001 ! Allocate the LUB/ISB/RAB for this unit if necessary. Store new CB (con- 
; 176 +4 trol block) in OTSS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 

3; «178 1004 BASS$$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 

: 179 1005 |, CB CISBSA_USER_FPJ = .FMP SFSC_SAVE_FPI; 

5 H+ 4 1997 Give an error if the channel is not open. Channel 0 cannot do a DELETE. 
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; 183 1009 

: H+) i9i9 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$S$STOP_IO (BASS$K_IO_CHANOT); 
: 186 101 1+ 

: 6187 1918 ' Now that the data base is in place, store the statement type and go 
: 133 1oie } directly to the REC level. 

; 190 1016 CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_DEL; 

: 19@ 1018 2! Check for virtual array usage and set block usage 

we gE 

3 13? HF § IF .CCB CLUBSV_VA_USE] THEN BAS$$STOP_IO (BASS$K_ILLILLACC); 

3 44 + 5 IF .CCB CLUBSV_READ_ONLY] THEN BASS$$STOP_IO (BASSK_ILLOPE); 

: 199 1958 CCB CLUBSV_BLK_USE] = 1; 

: 200 1026 BASSSREC_DSE (J; 

s 21 1027 2 !+ 

3 ooe 1358 § Now that the DELETE has been done, pop the CCB off the I/0 system. 

: 204 1030 2 BASSSCB_POP (); 

: 205 1031 1 END; 'End of BASSDELETE 


E BASSDELETE 
T \1-004\ 


-EXTRN BASS$S$STOP_IO, BASSSREC_DSE 
-EXTRN BAS$$CB_POSH, BAS$$CB_PoP 
EXTRN BAS$K_ICLOPE, BASSK_ICLILLACC 


ZEXTRN BASSK~10_CHANO 
-PSECT _BASSCODE.NOWRT, SHR, PIC.2 


083C¢ 00000 .ENTRY BASSDELETE, Save R2,R3,R4,R5,R11 : 

54 000000006 00 9€E 00002 MOVAB BAS$$STOP_I0, R4& : 

53 5D DO 00009 MOVL FP, FMP : 

50 08 CE 0000C MNEGL 48, ; 

52 04 AC DO 0000F OVL UNIT, R2 ; 
000000006 09 16 00013 JSB BAS$$CB_PUSH ; 

FF4C CB OC A3 DO 00019 MOVL 12(FMP)> -180(CCB) : 
07 FC AB 8 0001F §  -4(CCB). 1$ : 

7E 006 or A Be8 ; MOVZBL *#BASSK 49 CHANOT, -(SP) : 

64 1 eB 00 LLS a BASSS$STOP_10 g 

FF71 CB 21 9 00 A 1$: MOVE #33, -143(CCBY : 
07 FF AB 9 O2F BLBC ©. = 1(€CB),,_ 2$ : 

7E 00G 8F 9A 00 3 MOVZBL M#BAS$K_[LLILLACC, -(SP) : 

64 01 FB 00037 CALLS . BASSSSTOP é 

07 FC AB 02 FI O03, 2$: BBC #2. -4(CCB), 3$ : 
7E 00G 8F A 0003F MOVZBL *#BASSK abhor -(SP) ; 

64 01 cB 0045 CALLS #1, BASSSSTOP_ : 

FF AB 02 : 0046 3$: BISB2 #2. -1(CCB) : 
000000006 00 16 0004A JSB BASSSREC_DSE ; 

000000006 00 16 00050 JSB BAS$$CB_POP ; 

04 00056 RET : 


Page 
’ (3) 


N13 
BASSDELETE 16-Sep-1984 00:19: AX-11 Blisg-32 V4-0 Page 6 
1-004 1e-8ep-1984 11:54:50 EBASRTLSRESBASDELETE.682;1 9 (3) 


; Routine Size: 87 bytes, Routine Base: _BASSCODE + 0000 


09 1938 : END 'End of module = BASSDELETE 
08 1034 1 
09 1035 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 87 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ooncuees Symbols oooeso-- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 


COMMAND QUALIFIERS 
PL LSS/CHECK CF LELD., INITIAL OPTIMIZE) /UDTRACE/L ISe4, 188 :BASBELE TE /0R.J=08.J5 :QASOELETE MSRC$:BASDELETE/UPDATE=(ENH$: BASDELETE 


; Size: 87 code + 0 data bytes 


: e: :08. 
; Elapsed Time: 00:19.5 
; Lines/CPU Min: 7305 

; Lexemes/CPU-Min: 44018 

: poner Used: 115 pages 
; Compilation Complete 
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